0 DV=PEEK(186):REM FROM WHAT DRIVE DID I                COME FROM?   ]>UG..
1 DIM C$(11):FORI=1TO10:READC$(I):NEXT
5 REM POKE808,234
6 PRINT"[147]"
10 POKE53280,11:POKE53281,0
20 PRINT"    [158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
30 PRINT"    PLEASE SELECT A PROGRAM TO LOAD[146][187]"
40 PRINT"    [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
50 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
60 PRINT"       1.  [212][208][213][199] BOOT!   [146][129][187]"
70 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
80 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
90 PRINT"       2.3-[196] [205]ENU [205]AKER![146][129][187]"
100 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
110 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
120 PRINT"       3.               [146][129][187]"
130 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
140 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
150 PRINT"       4.               [146][129][187]"
160 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
170 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
180 PRINT"       5.               [146][129][187]"
190 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
200 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
210 PRINT"       6.               [146][129][187]"
220 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
230 PRINT"  MENU PROGRAMMED BY THE LAST FRONTIER"
300 GET X$:IF X$=""THEN 300
310 IF X$="A"THENX$="10":GOTO 340
320 IF X$="B"THENX$="11":GOTO 340
330 IFX$<"0"ORX$>"9"THEN 300
340 PRINT"[158][147]   LOADING..."
350 PRINT"LOAD"CHR$(34)"0:"C$(VAL(X$))CHR$(34)","DV",1"
360 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
370 POKE631,13:POKE632,13:POKE198,2:END
500 DATA "MENU      (C)ABK","3-D MENU MAKER","DMENU*"
510 DATA"NAME","NAME","NAME","NAME","NAME","NAME","NAME"
520 DATA""NAME"
999 [143]  ------------------------------
1000 [143] WHO WAS LAST FRONTIER?
1001 [143] BESIDE FILLING IN A FEW BLANKS
1002 [143] I ADDED THE ABILITY FOR IT TO
1003 [143] KNOW WHAT DRIVE IT CAME FROM
1004 [143] AND TO BOOT THE FILES FROM
1005 [143] THAT DISK! ONLY IMPORTANT FOR
1006 [143] THOSE THAT HAVE MORE THAN ONE
1007 [143] DRIVE, BUT IF YOU ARE
1008 [143] PROGRAMMING YOU BETTER KNOW
1009 [143] HOW TO DO IT!
1010 [143] ADDRESS LOCATION '186' HOLDS
1011 [143] THE NUMBER OF THE LAST DRIVE
1012 [143] USED. AND WHEN A 'LOAD' IS
1013 [143] INITIATED IT IS CLEARED SO YOU
1014 [143] PEEK IT EARLY AND PUT IT INTO
1015 [143] A VARIABLE LIKE I DID WITH
1016 [143] THIS ONE(FIRST LINE!) YIKES I
1017 [143] ALMOST DOUBLED THE SIZE OF
1018 [143] PROGRAM !!!!!